﻿Imports DAO
Imports BUS
Imports DTO
Imports System.Data.OleDb
Public Class PhieuKhamBenh
    Private tenbenh As New List(Of LoaiBenhDTO)
    Private Sub PhieuKhamBenh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim f As New Phieudangkykhambenh()
        'txt_hoten.Text = f.txt_hoten.Text
        'dtp_ngaykham.Value = f.dtp_ngaykham.Text
        dsach_TenBenh()

    End Sub
    Private Sub dsach_TenBenh()

        tenbenh = LoaiBenhBUS.Them

        For i As Integer = 1 To tenbenh.Count - 1
            cbb_loaibenh.Items.Add(tenbenh(i).TenLoaiBenh)
            cbb_loaibenh.Text = tenbenh(0).TenLoaiBenh
        Next
    End Sub
    Private Sub gb_dk_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb_dk.Enter

    End Sub

    Private Sub btndangky_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndangky.Click
        Dim fdonthuoc As New DonThuoc()
        fdonthuoc.ShowDialog()
    End Sub

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Close()
    End Sub
End Class